home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #260 (1993)(Rhein-Sieg-Soft).zip / Franz PD Disk #260 (1993)(Rhein-Sieg-Soft).adf / MÄXJE / Mäxje1 (.txt) < prev    next >
AmigaBASIC Source Code  |  1993-08-06  |  13KB  |  566 lines
  1. REM *** MÄXJE1 *** HP Biehl ***
  2. Einstellungen:
  3.   SCREEN 1,320,200,3,1
  4.   WINDOW 2,"Einstellungen",,16,1
  5.   PALETTE 0,0.8,0.8,0.4
  6.   PALETTE 1,0,0.2,0.2
  7.   okx1=265:okx2=297
  8.   oky1=152:oky2=176
  9. EinstSpieler:
  10.   CLS:LOCATE 2,16:PRINT "Anzahl Spieler"
  11.   LOCATE 6,1:PRINT "              human :"
  12.   LOCATE 10,1:PRINT "  computergesteuert :"
  13.   EinstSpi1=1:EinstSpi2=1
  14.   GOSUB SpielerEinst1
  15.   GOSUB SpielerEinst2
  16.   COLOR 1,3
  17.   LOCATE 20,34:PRINT "    "
  18.   LOCATE 21,34:PRINT " ok "
  19.   LOCATE 22,34:PRINT "    "
  20.   entx1=177:entx4=257
  21.   entx3=217:entx2=217
  22.   enty3=64:enty2=56
  23.   enty1=32:enty4=88
  24. SpielerEinst:
  25.   WHILE MOUSE(0)=0:WEND
  26.   m1=MOUSE(1):m2=MOUSE(2)
  27.   IF m1>okx1 AND m1<okx2 AND m2>oky1 AND m2<oky2 THEN EndeEinst
  28.   EinstSpi1=0:EinstSpi2=0
  29.   IF m1>entx3 AND m1<entx4 AND m2<enty2 AND m2>enty1 THEN EinstSpi1=2:EinstSpi2=2
  30.   IF m1>entx3 AND m1<entx4 AND m2>enty3 AND m2<enty4 THEN EinstSpi2=2:EinstSpi1=2
  31.   IF m1<entx2 AND m1>entx1 AND m2<enty2 AND m2>enty1 THEN EinstSpi1=1:EinstSpi2=1
  32.   IF m1<entx2 AND m1>entx1 AND m2>enty3 AND m2<enty4 THEN EinstSpi2=1:EinstSpi1=1
  33.   IF EinstSpi1=0 AND EinstSpi2=0 THEN SpielerEinst
  34.   GOSUB SpielerEinst1
  35.   GOSUB SpielerEinst2
  36.   GOTO SpielerEinst
  37. SpielerEinst1:
  38.   IF EinstSpi1>0 THEN HSpieler=EinstSpi1
  39.   IF HSpieler=1 THEN ec=5:ec1=0
  40.   IF HSpieler=2 THEN ec=0:ec1=5
  41.   COLOR 1,ec
  42.   LOCATE 5,23:PRINT "     "
  43.   LOCATE 6,23:PRINT "  1  "
  44.   LOCATE 7,23:PRINT "     "
  45.   COLOR 1,ec1
  46.   LOCATE 5,29:PRINT "     "
  47.   LOCATE 6,29:PRINT "  2  "
  48.   LOCATE 7,29:PRINT "     "
  49.   RETURN
  50. SpielerEinst2:
  51.   IF EinstSpi2>0 THEN CSpieler=EinstSpi2
  52.   IF CSpieler=1 THEN ec2=5:ec3=0
  53.   IF CSpieler=2 THEN ec2=0:ec3=5
  54.   COLOR 1,ec2
  55.   LOCATE 9,23:PRINT "     "
  56.   LOCATE 10,23:PRINT "  1  "
  57.   LOCATE 11,23:PRINT "     "
  58.   COLOR 1,ec3
  59.   LOCATE 9,29:PRINT "     "
  60.   LOCATE 10,29:PRINT "  2  "
  61.   LOCATE 11,29:PRINT "     "
  62.   RETURN
  63.   
  64. EndeEinst:
  65.   COLOR 1,0:CLS:EinstEnd=5
  66.   LOCATE 3,14:PRINT "Spielende bei"
  67.   LOCATE 11,17:PRINT "Punkten"
  68.   COLOR 1,3
  69.   LOCATE 20,34:PRINT "    "
  70.   LOCATE 21,34:PRINT " ok "
  71.   LOCATE 22,34:PRINT "    "
  72.   enty1=40:enty2=64
  73.   entx1=17:entx2=57
  74.   entx3=65:entx4=105
  75.   entx5=113:entx6=153
  76.   entx7=161:entx8=201
  77.   entx9=209:entx10=249
  78.   entx11=257:entx12=297
  79.   GOSUB EndeEinst2
  80.   IF MOUSE(0)=1 THEN FOR wart=1 TO 100:NEXT wart
  81. REM * 6 Zeilen löschen *:
  82. GOTO EndeEinst1:REM *vorher goto test
  83. test:  
  84.   WHILE MOUSE(0)=0:WEND
  85.   COLOR 1,0
  86.   LOCATE 14,3:PRINT  MOUSE(1);MOUSE(2)
  87.   GOTO test
  88.  
  89. EndeEinst1:  
  90.   WHILE MOUSE(0)=0:WEND
  91.   m1=MOUSE(1):m2=MOUSE(2)
  92.   IF m1>okx1 AND m1<okx2 AND m2>oky1 AND m2<oky2 THEN Spiel
  93.   IF m2<enty1 OR m2>enty2 THEN EndeEinst1
  94.   EinstEnd=0
  95.   IF m1>entx1 AND m1<entx2 THEN EinstEnd=5
  96.   IF m1>entx3 AND m1<entx4 THEN EinstEnd=6
  97.   IF m1>entx5 AND m1<entx6 THEN EinstEnd=7
  98.   IF m1>entx7 AND m1<entx8 THEN EinstEnd=8
  99.   IF m1>entx9 AND m1<entx10 THEN EinstEnd=9
  100.   IF m1>entx11 AND m1<entx12 THEN EinstEnd=10  
  101.   IF EinstEnd=0 THEN EndeEinst1
  102.   GOSUB EndeEinst2
  103.   GOTO EndeEinst1
  104.  
  105. EndeEinst2:
  106.   FOR el=3 TO 33 STEP 6
  107.   COLOR 1,6
  108.   IF EinstEnd=(el+3)/6+4 THEN COLOR 1,5
  109.   LOCATE 6,el:PRINT "     "
  110.   LOCATE 7,el:PRINT USING " ##  ";(el+3)/6+4
  111.   LOCATE 8,el:PRINT "     "
  112.   NEXT el
  113.   RETURN
  114.   
  115. Spiel:
  116. maxpu=EinstEnd:maxSpieler=HSpieler+CSpieler
  117. SCREEN 2,640,200,3,2
  118. WINDOW 2,"Mäxje 1.0",,16,2
  119.  WINDOW OUTPUT 1:CLS:LOCATE 8,2
  120.  PRINT "Zum fortsetzen":PRINT 
  121.  PRINT " 1. Linke Maustaste in diesem Fenster klicken"
  122.  PRINT " 2. Mit der rechten Maustaste im Pulldown-Menü RUN Continue anwählen"
  123.  PRINT 
  124. WINDOW 2
  125. PALETTE 1,0.46,0,0
  126. PALETTE 0,1,1,0.7
  127. PALETTE 2,0.46,0,0
  128. PALETTE 3,1,0.6,0.4
  129. PALETTE 4,0.6,1,0.6
  130. LOCATE 3,2:PRINT "Amiga1:"
  131. LOCATE 4,2:PRINT "Mensch1:"
  132. IF maxSpieler>2 THEN LOCATE 5,2:PRINT "Amiga2:"
  133. IF maxSpieler>3 THEN LOCATE 6,2:PRINT "Mensch2:"
  134. FOR maxp=1 TO maxpu
  135. LINE (79,16)-(80+maxp*15,24),1,b
  136. LINE (79,24)-(80+maxp*15,32),1,b
  137. IF maxSpieler>2 THEN LINE (79,32)-(80+maxp*15,40),1,b
  138. IF maxSpieler>3 THEN LINE (79,40)-(80+maxp*15,48),1,b
  139. NEXT maxp
  140. wp=470:RANDOMIZE TIMER
  141. gwpo1=39:gwl1=66
  142. gwpo2=63:gwl2=79
  143. gwpo3=87:gwl3=92
  144. WRahmen:
  145.  FOR wa=5 TO 125 STEP 24
  146.  LINE (wp-2,wa+1)-(wp,wa),1
  147.  LINE -(wp+32,wa),1:LINE -(wp+34,wa+1)
  148.  LINE (wp-2,wa+19)-(wp,wa+20)
  149.  LINE -(wp+32,wa+20):LINE -(wp+34,wa+19)
  150.  LINE (wp-2,wa+2)-(wp-2,wa+19)
  151.  LINE (wp+34,wa+2)-(wp+34,wa+19)
  152.  NEXT wa
  153.  w6=10
  154. WPunkte: 
  155.  w5=w6+24:w4=w6+48
  156.  w3=w6+72:w2=w6+96:w1=w6+120
  157.  LINE (wp+6,w6)-(wp+7,w6)
  158.  LINE (wp+16,w6)-(wp+17,w6)
  159.  LINE (wp+26,w6)-(wp+27,w6)
  160.  LINE (wp+6,w5)-(wp+7,w5)
  161.  LINE (wp+26,w5)-(wp+27,w5)
  162.  LINE (wp+16,w5+5)-(wp+17,w5+5)
  163.  LINE (wp+6,w4)-(wp+7,w4)
  164.  LINE (wp+26,w4)-(wp+27,w4)
  165.  IF w6=10 THEN
  166.    LINE (wp+26,w3)-(wp+27,w3)
  167.    LINE (wp+26,w2)-(wp+27,w2)
  168.  END IF
  169.  IF w6=20 THEN
  170.    LINE (wp+6,w3)-(wp+7,w3)
  171.    LINE (wp+6,w2)-(wp+7,w2)
  172.  END IF  
  173.  LINE (wp+16,w3+5)-(wp+17,w3+5)
  174.  LINE (wp+16,w1+5)-(wp+17,w1+5)
  175. IF w6=10 THEN w6=20:GOTO WPunkte
  176. IF wp=470 THEN wp=530:GOTO WRahmen
  177. FOR wfa=12 TO 132 STEP 24
  178. PAINT (480,wfa),3,1
  179. PAINT (540,wfa),3,1
  180. NEXT wfa
  181.  
  182. FOR wgp=20 TO 131 STEP 111
  183. LINE (wgp,60)-(wgp,100)
  184. LINE -(wgp+6,103):LINE -(wgp+86,103)
  185. LINE -(wgp+92,100):LINE -(wgp+92,60)
  186. LINE -(wgp+86,57):LINE -(wgp+6,57)
  187. LINE -(wgp,60)
  188. NEXT wgp
  189. Beginn:
  190.  spieler=INT(RND(1)*maxSpieler)+1
  191. NeuRund:
  192.   WAnz=0:Wlast=0:maex=0:wert=0:CAns=0
  193.   LINE (80,17)-(79+punkte1*15,23),5,bf
  194.   LINE (80,25)-(79+punkte2*15,31),5,bf
  195.   IF maxSpieler>2 THEN LINE (80,33)-(79+punkte3*15,39),5,bf
  196.   IF maxSpieler>3 THEN LINE (80,41)-(79+punkte4*15,47),5,bf
  197.   IF punkte1=maxpu OR punkte2=maxpu OR punkte3=maxpu OR punkte4=maxpu THEN Ende
  198.   
  199. NeuWurf:
  200.   WAnz=WAnz+1:Wlast=wert:gf=0
  201.   Complueg=0:WAnsa1=0:WAnsa2=0
  202.   GOSUB anderReihe
  203.   IF spieler=1 OR spieler=3 THEN CompAnsag
  204. WWurf:
  205.  gf=0
  206.  GOSUB entscheidweg
  207.  LINE (gwpo1,gwl1)-(gwpo3+5,gwl3+2),wuefa,bf
  208.  LINE (gwpo1+111,gwl1)-(gwpo3+116,gwl3+3),wuefa,bf
  209.  PAINT (gwpo1-1,gwl1-1),2,1
  210.  PAINT (gwpo1+110,gwl1-1),2,1
  211.  FOR sou=1 TO 50
  212.   SOUND 600,0.1,255,0
  213.  NEXT sou
  214.  FOR ww=1 TO 2
  215.   gwp1=gwpo1
  216.   gwp2=gwpo2
  217.   gwp3=gwpo3
  218.   IF ww=2 THEN
  219.     gwp1=gwpo1+111
  220.     gwp2=gwpo2+111
  221.     gwp3=gwpo3+111
  222.   END IF
  223.   wurf=INT(RND(1)*6)+1
  224.   ON wurf GOSUB Eins,Zwei,Eins,Vier,Vier,Vier
  225.   IF ww=1 THEN wurf1=wurf :ELSE wurf2=wurf
  226.  NEXT ww
  227.  IF spieler=1 OR spieler=3 THEN CompAnsag1
  228.  IF spieler=2 OR spieler=4 THEN aufd=1:GOTO aufdeck
  229. Entscheid:
  230.  IF MOUSE(0)=1 THEN FOR wart=1 TO 60:NEXT wart
  231.  spieler=spieler+1:IF spieler>maxSpieler THEN spieler=1
  232.  GOSUB anderReihe
  233.  COLOR 1,5
  234.  LOCATE 16,4:PRINT "           "
  235.  LOCATE 17,4:PRINT " Aufdecken "
  236.  LOCATE 18,4:PRINT "           "
  237.  LOCATE 16,18:PRINT "           "
  238.  LOCATE 17,18:PRINT "  Würfeln  "
  239.  LOCATE 18,18:PRINT "           "
  240. Entscheid1:
  241.  WHILE MOUSE(0)=0:WEND
  242.  IF MOUSE(2)<120 OR MOUSE(2)>144 THEN Entscheid1
  243.  IF MOUSE(1)<26 OR MOUSE(1)>226 THEN Entscheid1
  244.  IF MOUSE(1)<115 THEN aufd=0:GOTO aufdeck
  245.  wuefa=2
  246.  IF MOUSE(1)>138 THEN NeuWurf
  247.  GOTO Entscheid1
  248. CompAnsag:
  249.    CAns=1
  250.    IF WAnz>1 THEN Glaubensfrage :ELSE WWurf
  251. CompAnsag1:   
  252.    IF gf=1 THEN WWurf
  253.    Complueg=0:lueg=0
  254.    IF wurf1=1 AND wurf2=2 THEN Maexje
  255.    IF wurf1=2 AND wurf2=1 THEN Maexje
  256.    wu1=wurf1:wu2=wurf2
  257.    GOSUB WWert
  258.    IF wert<42 OR wert<Wlast THEN luegen
  259.    caw1=(6-wur1)*24+7
  260.    caw2=(6-wur2)*24+7
  261.    PAINT(wp-59,caw1),4,1
  262.    PAINT(wp+1,caw2),4,1
  263.    GOTO Entscheid
  264.  
  265. luegen:
  266.   IF Wlast>100 THEN 
  267.     wu1=INT(RND(1)*(7-(Wlast-100)/11))+(Wlast-100)/11
  268.     wu2=wu1
  269.   ELSE
  270.     wu1=INT(RND(1)*6)+1
  271.     wu2=INT(RND(1)*6)+1
  272.   END IF
  273.   GOSUB WWert
  274.   IF wert<Wlast THEN luegen
  275.   IF Wlast<100 AND wert>100 THEN
  276.     IF INT(RND(1)*2)=1 THEN luegen
  277.   END IF
  278.   IF wert<42 THEN luegen
  279.   caw1=(6-wur1)*24+7
  280.   caw2=(6-wur2)*24+7
  281.   PAINT(wp-59,caw1),4,1
  282.   PAINT(wp+1,caw2),4,1
  283.   Complueg=spieler
  284.   GOTO Entscheid
  285.    
  286. Glaubensfrage:
  287.   glauben=INT(RND(1)*100)+1:gf=1
  288.   IF wert<50 THEN
  289.    IF glauben>=5*WAnz-16 THEN CompAnsag1 :ELSE nichtglauben
  290.   END IF
  291.   IF wert<60 THEN
  292.    IF glauben>=5*WAnz-11+(wert-40)*2+(Wlast-42)*2 THEN CompAnsag1 :ELSE nichtglauben
  293.   END IF
  294.   IF wert<100 THEN
  295.    IF glauben>=5*WAnz-19+(wert-56)*5+(Wlast-52)*4 THEN CompAnsag1 :ELSE nichtglauben
  296.   END IF
  297.   IF glauben>8*WAnz-24+(wert-100)/4+80+(Wlast-62)*3 THEN CompAnsag1
  298. nichtglauben:
  299.  GOSUB Glaubenachricht
  300.  GOTO aufdeck
  301.  
  302. Maexje:
  303.  FOR sou=300 TO 360 STEP 20
  304.  SOUND sou,8,250
  305.  NEXT sou
  306.  FOR wart=1 TO 500:NEXT wart
  307.  maex=1:aufd=0
  308.  IF spieler=1 THEN punkte2=punkte2+1:punkte3=punkte3+1:punkte4=punkte4+1
  309.  IF spieler=2 THEN punkte1=punkte1+1:punkte3=punkte3+1:punkte4=punkte4+1
  310.  IF spieler=3 THEN punkte1=punkte1+1:punkte2=punkte2+1:punkte4=punkte4+1
  311.  IF spieler=4 THEN punkte1=punkte1+1:punkte2=punkte2+1:punkte3=punkte3+1
  312.  spieler=spieler+1
  313.  IF spieler>maxSpieler THEN spieler=1
  314.  GOTO aufdeck
  315. WWert:
  316.   wur1=wu1:wur2=wu2
  317.   IF wu1=wu2 THEN wert=100+10*wu1+wu2
  318.   IF wu1>wu2 THEN wert=wu1*10+wu2
  319.   IF wu1<wu2 THEN wert=wu1+wu2*10:wur1=wu2:wur2=wu1
  320.   RETURN
  321. aufdeck: 
  322.  GOSUB entscheidweg
  323.  GOSUB Nachrichtweg
  324.  GOSUB WMarkweg
  325.  PAINT (gwpo1-1,gwl1-1),3,1
  326.  PAINT (gwpo1+110,gwl1-1),3,1
  327.  IF aufd=1 THEN Ansagen1
  328.  IF maex=1 THEN NeuRund
  329.  IF Complueg=1 THEN
  330.     punkte1=punkte1+1
  331.     spieler=5
  332.  END IF
  333.  IF Complueg=3 THEN
  334.     punkte3=punkte3+1
  335.     spieler=6
  336.  END IF
  337.  IF Complueg=0 AND spieler=4 THEN punkte4=punkte4+1
  338.  IF Complueg=0 AND spieler=2 THEN punkte2=punkte2+1
  339.  IF lueg=2 THEN punkte2=punkte2+1:spieler=2
  340.  IF lueg=4 THEN punkte4=punkte4+1:spieler=4
  341.  IF lueg=0 AND spieler=1 THEN punkte1=punkte1+1
  342.  IF lueg=0 AND spieler=3 THEN punkte3=punkte3+1
  343.  IF spieler=5 THEN spieler=1
  344.  IF spieler=6 THEN spieler=3
  345.  GOTO NeuRund  
  346.  
  347. Ansagen1:
  348.  IF wurf1=1 AND wurf2=2 THEN Maexje
  349.  IF wurf1=2 AND wurf2=1 THEN Maexje
  350.  wpa=wp-59:WAnsa1=0:aufd=0
  351.  GOSUB AnsagNachricht
  352.  WHILE MOUSE(0)=0:WEND
  353.  IF MOUSE(1)<wpa-1 OR MOUSE(1)>wpa+39 THEN Ansagen1
  354.  IF MOUSE(2)>6 AND MOUSE(2)<24 THEN
  355.    PAINT (wpa,7),4,1
  356.    WAnsa1=6
  357.  END IF
  358.  IF MOUSE(2)>30 AND MOUSE(2)<48 THEN
  359.    PAINT (wpa,31),4,1
  360.    WAnsa1=5
  361.  END IF
  362.  IF MOUSE(2)>54 AND MOUSE(2)<72 THEN
  363.    PAINT (wpa,55),4,1
  364.    WAnsa1=4
  365.  END IF
  366.  IF MOUSE(2)>78 AND MOUSE(2)<96 THEN
  367.    PAINT (wpa,79),4,1
  368.    WAnsa1=3
  369.  END IF
  370.  IF MOUSE(2)>102 AND MOUSE(2)<120 THEN
  371.    PAINT (wpa,103),4,1
  372.    WAnsa1=2
  373.  END IF
  374.  IF MOUSE(2)>126 AND MOUSE(2)<144 THEN
  375.    PAINT (wpa,127),4,1
  376.    WAnsa1=1
  377.  END IF
  378.  GOSUB Nachrichtweg
  379.  IF WAnsa1=0 THEN Ansagen1
  380.  IF MOUSE(0)=1 THEN FOR wart=1 TO 100:NEXT wart 
  381. Ansagen2:
  382.  WAnsa2=0
  383.  WHILE MOUSE(0)=0:WEND
  384.  IF MOUSE(1)<wp OR MOUSE(1)>wp+40 THEN Ansagen2
  385.  IF MOUSE(2)>6 AND MOUSE(2)<24 AND WAnsa1>5 THEN
  386.    PAINT (wp+1,7),4,1
  387.    WAnsa2=6
  388.  END IF
  389.  IF MOUSE(2)>30 AND MOUSE(2)<48 AND WAnsa1>4 THEN
  390.    PAINT (wp+1,31),4,1
  391.    WAnsa2=5
  392.  END IF
  393.  IF MOUSE(2)>54 AND MOUSE(2)<72 AND WAnsa1>3 THEN
  394.    PAINT (wp+1,55),4,1
  395.    WAnsa2=4
  396.  END IF
  397.  IF MOUSE(2)>78 AND MOUSE(2)<96 AND WAnsa1>2 THEN
  398.    PAINT (wp+1,79),4,1
  399.    WAnsa2=3
  400.  END IF
  401.  IF MOUSE(2)>102 AND MOUSE(2)<120 AND WAnsa1>1 THEN
  402.    PAINT (wp+1,103),4,1
  403.    WAnsa2=2
  404.  END IF
  405.  IF MOUSE(2)>126 AND MOUSE(2)<144 THEN
  406.    PAINT (wp+1,127),4,1
  407.    WAnsa2=1
  408.  END IF
  409.  IF WAnsa2=0 THEN Ansagen2
  410.  wu1=WAnsa1:wu2=WAnsa2:GOSUB WWert
  411.  IF wert<Wlast THEN Gehtnich
  412. korrekt:
  413.  IF MOUSE(0)=1 THEN FOR wart=1 TO 100:NEXT wart 
  414.  COLOR 1,5
  415.  LOCATE 20,59:PRINT "     "
  416.  LOCATE 21,59:PRINT " OK! "
  417.  LOCATE 22,59:PRINT "     "
  418.  LOCATE 20,67:PRINT "     "
  419.  LOCATE 21,67:PRINT " neu "
  420.  LOCATE 22,67:PRINT "     "
  421.  IF MOUSE(0)>0 THEN FOR wart=1 TO 300:NEXT wart
  422. korrekt1: 
  423.  WHILE MOUSE(0)=0:WEND
  424.  wuefa=3
  425.  lueg=spieler
  426.  IF WAnsa1=wurf1 AND WAnsa2=wurf2 THEN lueg=0
  427.  IF WAnsa1=wurf2 AND WAnsa2=wurf1 THEN lueg=0
  428.  IF MOUSE(1)<466 OR MOUSE(1)>565 THEN korrekt1
  429.  IF MOUSE(2)>175 OR MOUSE(2)<152 THEN korrekt1
  430.  IF MOUSE(1)<504 THEN Spielerwechsel
  431.  IF MOUSE(1)<528 THEN korrekt1
  432.  PAINT (wpa,151-24*WAnsa1),3,1
  433.  PAINT (wp+1,151-24*WAnsa2),3,1
  434.  GOSUB korrektweg
  435.  GOTO Ansagen1
  436.  
  437. Nachrichten:
  438.  
  439. Gehtnich:
  440.   COLOR 1,5
  441.   LOCATE 3,33:PRINT "  Du darfst nicht  "
  442.   LOCATE 4,33:PRINT "   unterbieten!    "
  443.   LOCATE 5,33:PRINT "   Also nochmal!   "
  444.   GOSUB WMarkweg
  445.   GOTO Ansagen1
  446. AnsagNachricht:
  447.   COLOR 1,5
  448.   LOCATE 3,33:PRINT "  Ansagen: Zuerst  "
  449.   LOCATE 4,33:PRINT "  die höhere Zahl  "
  450.   LOCATE 5,33:PRINT "  links anklicken! "
  451.   RETURN
  452. Glaubenachricht:
  453.   COLOR 1,5
  454.   LOCATE 3,33:PRINT "  Das glaube ich   "
  455.   LOCATE 4,33:PRINT "  Dir nicht! Ich   "
  456.   LOCATE 5,33:PRINT "  decke auf.       "
  457.   FOR wart=1 TO 1500:NEXT wart
  458.   RETURN
  459.   
  460. Nachrichtweg:
  461.   COLOR 1,0
  462.   LOCATE 3,33:PRINT "                   "
  463.   LOCATE 4,33:PRINT "                   "
  464.   LOCATE 5,33:PRINT "                   "
  465.   RETURN
  466.      
  467. Spielerwechsel:
  468.    GOSUB korrektweg
  469.    spieler=spieler+1
  470.    IF spieler>maxSpieler THEN spieler=1
  471.    GOSUB WMarkweg
  472.    GOTO NeuWurf
  473.  
  474. WMarkweg:
  475.    IF WAnz=1 AND WAnsa1=0 AND CAns=0 THEN RETURN
  476.    IF WAnsa1>0 THEN caw1=151-24*WAnsa1
  477.    IF WAnsa2>0 THEN caw2=151-24*WAnsa2
  478.    PAINT(wp-59,caw1),3,1
  479.    PAINT(wp+1,caw2),3,1
  480.    RETURN
  481.      
  482. entscheidweg:
  483.  COLOR 1,0
  484.  LOCATE 16,4:PRINT "           "
  485.  LOCATE 17,4:PRINT "           "
  486.  LOCATE 18,4:PRINT "           "
  487.  LOCATE 16,18:PRINT "           "
  488.  LOCATE 17,18:PRINT "           "
  489.  LOCATE 18,18:PRINT "           "
  490.  RETURN
  491. korrektweg:
  492.  COLOR 1,0
  493.  LOCATE 20,59:PRINT "     "
  494.  LOCATE 21,59:PRINT "     "
  495.  LOCATE 22,59:PRINT "     "
  496.  LOCATE 20,67:PRINT "     "
  497.  LOCATE 21,67:PRINT "     "
  498.  LOCATE 22,67:PRINT "     "
  499.  RETURN
  500. anderReihe:
  501.   IF spieler=1 THEN s$="Amiga1"
  502.   IF spieler=2 THEN s$="Mensch1"
  503.   IF spieler=3 THEN s$="Amiga2"
  504.   IF spieler=4 THEN s$="Mensch2"
  505.   COLOR 1,0
  506.   LOCATE 1,2:PRINT s$;" ist dran. "
  507.   RETURN    
  508. Eins:
  509.   LINE (gwp2,gwl2)-(gwp2+5,gwl2+2),1,bf
  510.   IF wurf=1 THEN RETURN
  511. Zwei:
  512.   LINE (gwp1,gwl3)-(gwp1+5,gwl3+2),1,bf
  513.   LINE (gwp3,gwl1)-(gwp3+5,gwl1+2),1,bf
  514.   RETURN
  515. Vier:
  516.   LINE (gwp1,gwl1)-(gwp1+5,gwl1+2),1,bf
  517.   LINE (gwp1,gwl3)-(gwp1+5,gwl3+2),1,bf
  518.   LINE (gwp3,gwl1)-(gwp3+5,gwl1+2),1,bf
  519.   LINE (gwp3,gwl3)-(gwp3+5,gwl3+2),1,bf
  520.   IF wurf=4 THEN RETURN
  521.   IF wurf=6 THEN Sechs
  522. Fuenf:
  523.   LINE (gwp2,gwl2)-(gwp2+5,gwl2+2),1,bf
  524.   RETURN
  525. Sechs:
  526.   LINE (gwp2,gwl1)-(gwp2+5,gwl1+2),1,bf
  527.   LINE (gwp2,gwl3)-(gwp2+5,gwl3+2),1,bf
  528.   RETURN
  529. Ende:
  530.  verli$="":verli1$="":verli=0
  531.  IF punkte1=maxpu THEN verli$="Amiga1":verli=1
  532.  IF punkte2=maxpu THEN 
  533.   IF verli=0 THEN verli$="Mensch1" :ELSE verli1$="Mensch1"
  534.   verli=1
  535.  END IF
  536.  IF punkte3=maxpu THEN
  537.   IF verli=0 THEN verli$="Amiga2" :ELSE verli1$="Amiga2"
  538.   verli=1
  539.  END IF
  540.  IF punkte4=maxpu THEN 
  541.   IF verli=0 THEN verli$="Mensch2" :ELSE verli1$="Mensch2"
  542.  END IF
  543.  COLOR 3,1
  544.  LOCATE 7,37:PRINT "             "
  545.  LOCATE 8,37:PRINT "  Der große  "
  546.  LOCATE 9,37:PRINT "  Verlierer  "
  547.  LOCATE 10,37:PRINT "     ist     "
  548.  COLOR 4,1
  549.  LOCATE 11,37:PRINT USING "   \     \   ";verli1$
  550.  LOCATE 12,37:PRINT USING "   \     \   ";verli$
  551.  LOCATE 13,37:PRINT "             "
  552.  COLOR 1,5
  553.  LOCATE 15,37:PRINT "             "      
  554.  LOCATE 16,37:PRINT " Neues Spiel "
  555.  LOCATE 17,37:PRINT "             "
  556.  LOCATE 19,37:PRINT "             "      
  557.  LOCATE 20,37:PRINT "   E n d e   "
  558.  LOCATE 21,37:PRINT "             "
  559. nochma: 
  560.  WHILE MOUSE(0)=0:WEND
  561.  IF MOUSE(1)<290 OR MOUSE(1)>393 THEN nochma
  562.  IF MOUSE(2)<137 AND MOUSE(2)>111 THEN RUN
  563.  IF MOUSE(2)<169 AND MOUSE(2)>143 THEN CHAIN"Mäxje"
  564.  GOTO nochma
  565.       
  566.